00100	(SETQ BASE (SETQ IBASE (ADD1 7)))
00200	(DECLARE (SPECIAL BPORG BPEND))
00300	
00400	[DE LTSET (SIZE FLAG)
00500	  (PROG (N)
00600	   [COND ((AND (SETQ N (LTSET1 SIZE BPORG BPEND FLAG)) FLAG)(SETQ BPORG N]
00700	   (RETURN (NOT (NULL N]
00800	
00900	
01000	[DE LTREL NIL
01100	  (PROG (N)
01200	    [COND ((SETQ N (LTREL1 BPORG BPEND)) (SETQ BPORG N]
01300	    (RETURN (NOT (NULL N]
01400	
01500	[DE LTREAD NIL
01600	  (PROG (N N1 N2 SEXPR)
01700	    (SETQ N (PLUS (MAKNUM (GET @READ @SUBR)@FIXNUM) 25))
01800	    (SETQ N1 (MAKNUM (GET @XCONS @SUBR) @FIXNUM))
01900	    (SETQ N2 (MAKNUM (GET @LTXCONS @SUBR) @FIXNUM))
02000	    (DEPOSIT N (PLUS 254000000000 N2))
02100	    (SETQ SEXPR (READ))
02200	    (DEPOSIT N (PLUS 254000000000 N1))
02300	    (RETURN SEXPR)
02400	  )
02500	)
02600	
02700	(GETSYM SUBR LTCONS LTXCONS LTSET1 LTREL1 UNLTCONS DDT)
02800	(GETSYM SUBR LTOCCUPANCY LTAVERAGELOOKUP LTMAXLOOKUP)